home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / robo42_a.zip / RPT_SCAN.RS < prev    next >
Text File  |  1992-07-23  |  2KB  |  95 lines
  1. ;-----------------------------------------------------------------------
  2. ; File:    RPT_SCAN.RS - Robocomm 4.x script file
  3. ;.......................................................................
  4. ; Author:  Dan Parsons
  5. ; Version: 1.1
  6. ; Revised: 05/27/92
  7. ;
  8. ; Notes:   You MUST have the renumbering style on Robocomm's
  9. ;          "Data and Logs" configuration screen set to "#???????.???"
  10. ;          in order to use this script!!!
  11. ;
  12. ; v 1.1    Modified to check for a file list in the first
  13. ;          QWK packet downloaded.
  14. ;
  15. ;----------------------------------------------------------------------
  16. TITLE "Repeat QWK Scan in Qmail 4.0 Door (READ ME!)"
  17. ENDPARAMS
  18.  
  19.     ; You may want to set a custom timeout value.
  20.     ; If so, uncomment the next line and edit it to suit your taste.
  21.     ; TIMEOUT 360
  22.  
  23.     ; Go to mail door and get it set up for extended prompts.
  24.     VENUE MAIL
  25.     SEND "PROMPTS ON|"
  26.  
  27.     WAITFOR "<COMMAND>"
  28.     SEND "D|"
  29.     WHEN "<COMMAND>" GOTO END
  30.     WAITFOR "<DLASK>"
  31.     SEND "Y|"
  32.     WAITFOR "<DOWNLOAD>"
  33.     GOSUB GETQWK
  34.     GOSUB GETLIST
  35.  
  36.     ; Repeat #1
  37.     WHEN "<COMMAND>" GOTO END
  38.     WAITFOR "<DOWNLOAD>"
  39.     GOSUB GETQWK
  40.  
  41.     ; Repeat #2
  42.     WAITFOR "<DOWNLOAD>"
  43.     GOSUB GETQWK
  44.  
  45.     ; Repeat #3
  46.     WAITFOR "<DOWNLOAD>"
  47.     GOSUB GETQWK
  48.  
  49.     ; Repeat #4
  50.     WAITFOR "<DOWNLOAD>"
  51.     GOSUB GETQWK
  52.  
  53.     ; Repeat #5
  54.     WAITFOR "<DOWNLOAD>"
  55.     GOSUB GETQWK
  56.  
  57.     ; Repeat #6
  58.     WAITFOR "<DOWNLOAD>"
  59.     GOSUB GETQWK
  60.  
  61.     ; Repeat #7
  62.     WAITFOR "<DOWNLOAD>"
  63.     GOSUB GETQWK
  64.  
  65.     ; Repeat #8
  66.     WAITFOR "<DOWNLOAD>"
  67.     GOSUB GETQWK
  68.  
  69.     ; If we got this far, there's no way to stop, so just hang up.
  70.     HANGUP
  71.  
  72. EXIT 0
  73.  
  74. :GETQWK
  75.     ; We force up to nine packets, because that's how many this script may end
  76.     ; up downloading.
  77.     RENUMBER "%QWKDIR%%ID%.QWK" 9
  78.     ; Macro 22 is the mail door download protocol.
  79.     DOWNLOAD "%QWKDIR%%ID%.QWK" USING "%BBS22%"
  80. RETURN
  81.  
  82. :GETLIST
  83.     ERASE "NEWFILES.DAT"
  84.     RUN "PKUNZIP %QWKDIR%%ID%.QWK NEWFILES.DAT"
  85.     IF EXIST "newfiles.dat" RUN "TYPE NEWFILES.DAT >> NEWLIST.DAT"
  86.     IF EXIST "newfiles.dat" MESSAGE "Extracted file list from QWK."
  87.     IF NOT EXIST "newfiles.dat" MESSAGE "No file list found in QWK."
  88.     ERASE "NEWFILES.DAT"
  89. RETURN
  90.  
  91. :END
  92.     MESSAGE "No more messages to download"
  93. EXIT 0
  94.  
  95.